﻿
Public Class TipoServicioBE
    Private iCodigo As Integer
    Private sNombre As String
    Private sDescripcion As String
    Private sUsuario As String

    Public Sub New()

    End Sub

    Public Sub New(ByVal strNombre As String)
        sNombre = strNombre
    End Sub

    Public Property Codigo() As Integer
        Get
            Return iCodigo
        End Get
        Set(ByVal value As Integer)
            iCodigo = value
        End Set
    End Property

    Public Property Nombre() As String
        Get
            Return sDescripcion
        End Get
        Set(ByVal value As String)
            sDescripcion = value
        End Set
    End Property

    Public Property UsuarioCreador() As String
        Get
            Return sUsuario
        End Get
        Set(ByVal value As String)
            sUsuario = value
        End Set
    End Property





End Class
